let rec append l m =
if (l = []) then m else ((head l) :: (append (tail l) m) ) in
(append ([1;2;3]) ([4;5;6]))
;;












		
